===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 03-22-93 (21:34)             Number: 142
From: EARL MONTGOMERY              Refer#: 162
  To: ALL                           Recvd: NO  
Subj: English Script                 Conf: (35) Quick Basi
---------------------------------------------------------------------------
' Final part of 3
     a$(106) = "BD5ED2ED10GE2U8H2BU2URBUBR4"
     a$(107) = "BDFD12HR4G2U13NE2D6E3R2FL3FRG4ER2GR2D4EUL2U3BU10"
     a$(107) = a$(107) + "BR5"
     a$(108) = "BDFD11NL2DFELU13EBR3"
     a$(109) = "BD6UED10HF2ELU9FNRE2D10FU10FNRE2D10RNE2U9FBU6BR3"
     a$(110) = "BD5NE2RED9FE2LGU9FNE2RED2RU2D9FE2LGU8EBU4BR4"
     a$(111) = "BD7NE4ND4RD5F2UHUF2E2NU6LU4H2EDFU2BU4BR4"
     a$(112) = "BD5E2D13LR2NFU5NL2U7FE2D2ED9GH3R5DL3FE2U6BU5BR3"
     a$(113) = "BD6NE3ND6RNE2D7FU2FE2D5NGR2HU9FG2DU5L2EBU4BR6"
     a$(114) = "BD5NE2RED8HF3E2LGU2GU8FE2D2ED3EUBU5BR3"
     a$(115) = "BD13NE8R6GLU2NL3BR3ENU2LU3LD2HL3EL2NU2EU2E2DR4GN"
     a$(115) = a$(115) + "L2E2BU3BR3"
     a$(116) = "BD4NE3RD9HR2D2EDNE2HU10FRBU4BR4"
     a$(117) = "BD5NE2RED8FNU9FU3FDEF2E2L3FU10G2R3G2D5U8BU4BR6"
     a$(118) = "BR3G3RDEUD10NLF2NE4U2RL2ELU7BR4NHD7EU5BU5BR3"
     a$(119) = "BR2G2D2RU3D12HF2EUGU9FE2ND9FD8F2E2RGNHEU9NG3FND8"
     a$(119) = a$(119) + "BU4BR3"
     a$(120) = "BD6E3DGRD2RU2D5G4U3FRE2RD2RD2E3GLHUHUE4D2HLE2BU3BR3"
     a$(121) = "BD5NE2RED10GDFR3EUGBH3RNU10EDE4NU6LU5G2BU6BR6"
     a$(122) = "BD7UE3D2ED2EDG4R4HLD2R3DL2D2EL2DL2GDFR2EBU16BR5"
     SCREEN 9
     CLS
     w$ = "Quick Basic 4.5 now offered in English Script!"
     DRAW "c 14;s4 bm80,70;"
     GOSUB loop1
     DRAW "c 15;s4 bm1,100;"
     w$ = "!#$%&'()*+,-./0123456789:;<=>?&"
     GOSUB loop1
     DRAW "c 11;s4 bm1,130;"
     w$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
     GOSUB loop1
     DRAW "C 14;S4 BM1,170;"
     w$ = "[\]^_'abcdefghijklmnopqrstuvwxyz"
     GOSUB loop1
     DRAW "c 11;s4 bm1,200;"
     w$ = "Wasn't I a nice guy to crop all those lines for you?"
     GOSUB loop1
     DRAW "c11;s4 bm1,220;"
     w$ = "You know those lines that go A$=A$+"
     GOSUB loop1
holdscrn:
GOTO holdscrn
loop1:
FOR x = 1 TO LEN(w$)
y = ASC(MID$(w$, x, 1))
DRAW a$(y)
NEXT
RETURN
'end

--- Maximus 2.01wb
 * Origin: Rabbit and Snake's BBS - Richardson, Texas (1:124/6108)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20